home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 7
/
Apprentice-Release7.iso
/
Environments
/
Small Eiffel 0.4.8
/
misc
/
pointemacs
< prev
next >
Wrap
Lisp/Scheme
|
1997-04-13
|
5KB
|
226 lines
; .emacs -- Joel Faedi (1994/09/23)
;
; Joel.Faedi@scinfo.u-nancy.fr
;
; =======================================
; Les chemins de recherche des macros Lisp
; ==> notez le append pour ajouter a la
; liste des `path'
; ----------------------------------------
;(setq load-path
; (append
; '("/mon/chemin/a/moi")
; load-path
; ))
; le mode par defaut
; ------------------
(setq default-major-mode 'text-mode)
; Les AUTO FILL MODE
; ------------------
(setq save-buffer-context t)
(setq mail-mode-hook '(lambda () (auto-fill-mode 1)))
(setq auto-save-and-recover-context t)
; LES AUTOLOAD
; ------------
(setq default-major-mode 'text-mode)
; ********** pour le mode Eiffel
(autoload 'eiffel-mode "eiffel" "Mode for Eiffel programs" t nil)
; ********** pour le mode Tar
(autoload 'tar-mode "tar-mode" "mode Tar" t nil)
; Associations entre modes et suffixes
; ------------------------------------
(setq
auto-mode-alist
'(("\\.text$" . text-mode)
("\\.txt$" . text-mode)
("\\.letter$" . text-mode)
("^/tmp/Re" . text-mode)
("^/tmp/fol/" . text-mode)
("/Message[0-9]*$" . text-mode)
("\\.e$" . eiffel-mode)
("\\.c$" . c-mode)
("\\.h$" . c-mode)
("\\.cc$" . c++-mode)
("\\.hh$" . c++-mode)
("\\.lex$" . c-mode)
("\\.yacc$" . c-mode)
("\\.html$" . html-mode)
("\\.s$" . asm-mode)
("\\.mp$". idem-mode)
("\\.el$" . emacs-lisp-mode)
("/\\..*emacs" . emacs-lisp-mode)
("\\.l$" . lisp-mode)
("\\.ll$" . lisp-mode)
("\\.lisp$" . lisp-mode)
("\\.lsp$" . lisp-mode)
("\\.texinfo$" . texinfo-mode)
("\\.texi$" . texinfo-mode)
("\\.tar$" . tar-mode)
))
; Suffixes a ignorer
; ------------------
(setq completion-ignored-extensions '(".o" ".elc" "~" ".bin" ".lbin" ".dvi"
".toc" ".abv" ".x"
".log" ".aux" ".lof"
".blg" ".bbl" ".glo"
".idx" ".lot" ".lo"
".usl" ".hsl"))
; Les clefs (associations touche-fonction)
; ----------------------------------------
; "ESC I" ou "CTRL-X <Espace>" pour passer en mode sur-impression
; et insertion (en bascule)
(global-set-key "\M-I" 'overwrite-mode)
(global-set-key "\M-i" 'overwrite-mode)
(global-set-key "\C-x " 'overwrite-mode)
; "ESC $" pour verifier l'orthographe anglaise du buffer
(global-set-key "\M-$" 'spell-buffer)
; "CTRL-X CTRL-Z" pour agrandir la fenetre
(global-set-key "\C-x\C-z" 'enlarge-window)
; "CTRL-X =" pour aller a la ligne de numero donne
(global-set-key "\C-x=" 'goto-line)
; "CTRL-X ?" : numero de la ligne courante ?
(global-set-key "\C-x?" 'what-line)
; suppression de "CTRL-X CTRL-L"
(global-unset-key "\C-x\C-l")
; suppression de CTRL-X f
;(global-unset-key "\C-xf")
; "CTRL-X >" pour envoyer un mail
(global-set-key "\C-x<" 'rmail)
; "CTRL-X <" pour lire son mail
(global-set-key "\C-x>" 'mail-other-window)
; "Back space" qui efface
(global-set-key "\C-h" 'delete-backward-char)
; "ESC ?" pour obtenir la doc emacs
(global-set-key "\M-?" 'help-for-help)
; Pour les consoles alphanumeriques HP
; ------------------------------------
; les fleches
(global-set-key "\M-C" 'forward-char)
(global-set-key "\M-B" 'next-line)
(global-set-key "\M-A" 'previous-line)
(global-set-key "\M-D" 'backward-char)
; "Next" pour aller a la page suivante, "Prev" pour la precedente
(global-set-key "\C-[V" 'scroll-down)
(global-set-key "\C-[U" 'scroll-up)
; "Scroll Up" pour aller au debut de la ligne, "Scroll Down" a la fin
(global-set-key "\C-[T" 'beginning-of-line)
(global-set-key "\C-[S" 'end-of-line)
; "Delete Char" pour DEL, et "Delete Line" pour C-K
(global-set-key "\C-[P" 'delete-char)
(global-set-key "\C-[M" 'kill-line)
; "Fleche inclinee" debut de fichier, "SHIFT + Fleche" fin du fichier
(global-set-key "\C-[h" 'beginning-of-buffer)
(global-set-key "\C-[F" 'end-of-buffer)
; "Clear Display" pour RAZ ecran
(global-set-key "\C-[J" 'recenter)
; SHIFT + "Delete Char" pour 'UNDO' (= CTRL-_ )
(global-set-key "\C-[O" 'undo)
; "Insert Char" pour marquer (= CTRL-@ )
(global-set-key "\C-[Q" 'set-mark-command)
; SHIFT + "Insert char" pour copier sans couper (= ESC w )
(global-set-key "\C-[N" 'copy-region-as-kill)
; "Insert Line" pour inserer le texte copier (= CTRL-Y )
(global-set-key "\C-[L" 'yank)
; "ESC ." pour basculer 80/132 colonnes sur consoles alpha
(defun switch-width ()
"Echange mode 80-132 colonnes"
(interactive)
( if (= (screen-width) 80)
( set-screen-width 132 )
( set-screen-width 80 ))
)
( global-set-key "\M-." 'switch-width)
; Les variables
; -------------
; majuscules et minuscules equivalentes dans les recherches
(setq-default case-fold-search t)
; Pas de messages au debut
; ------------------------
(setq inhibit-startup-message t)
(put 'eval-expression 'disabled nil)
; fin